home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 August
/
CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso
/
disc2
/
programr
/
vbasic
/
receipt.exe
/
CUSTDLG.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
14KB
|
460 lines
VERSION 2.00
Begin Form Form6
Caption = "Sold To:"
ClientHeight = 5235
ClientLeft = 1200
ClientTop = 1710
ClientWidth = 7005
Height = 5640
Left = 1140
LinkMode = 1 'Source
LinkTopic = "Form6"
ScaleHeight = 349
ScaleMode = 3 'Pixel
ScaleWidth = 467
Top = 1365
Width = 7125
Begin CommandButton Command2
Caption = "Cancel"
Height = 375
Left = 3720
TabIndex = 5
Top = 4560
Width = 2295
End
Begin CommandButton Command1
Caption = "OK"
Default = -1 'True
Height = 375
Left = 960
TabIndex = 4
Top = 4560
Width = 2295
End
Begin VBedit BEdit12
CellHeight = 32
CellWidth = 22
CharSet = 16388
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 4680
TabIndex = 23
Top = 3840
Version = 268435458
Width = 1455
End
Begin VBedit BEdit11
CellHeight = 32
CellWidth = 22
CharSet = 16388
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 3240
TabIndex = 21
Top = 3840
Version = 268435458
Width = 1095
End
Begin VBedit BEdit10
CellHeight = 32
CellWidth = 22
CharSet = 16388
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1920
TabIndex = 20
Top = 3840
Version = 268435458
Width = 1095
End
Begin VBedit BEdit9
CellHeight = 32
CellWidth = 22
CharSet = 16388
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 4680
TabIndex = 18
Top = 3240
Version = 268435458
Width = 1455
End
Begin VBedit BEdit8
CellHeight = 32
CellWidth = 22
CharSet = 16388
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 3240
TabIndex = 16
Top = 3240
Version = 268435458
Width = 1095
End
Begin VBedit BEdit7
CellHeight = 32
CellWidth = 22
CharSet = 16388
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1920
TabIndex = 14
Top = 3240
Version = 268435458
Width = 1095
End
Begin VBedit BEdit6
CellHeight = 32
CellWidth = 22
CharSet = 16388
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 4440
TabIndex = 13
Top = 2640
Version = 268435458
Width = 1695
End
Begin VBedit BEdit5
CellHeight = 32
CellWidth = 22
CharSet = 16386
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1920
TabIndex = 12
Top = 2640
Version = 268435458
Width = 735
End
Begin VBedit BEdit4
CellHeight = 32
CellWidth = 22
CharSet = 16651
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 9
Top = 2040
Version = 268435458
Width = 5655
End
Begin VBedit BEdit3
CellHeight = 32
CellWidth = 22
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 8
Top = 1440
Version = 268435458
Width = 5655
End
Begin VBedit BEdit2
CellHeight = 32
CellWidth = 22
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 7
Top = 840
Version = 268435458
Width = 5655
End
Begin VBedit BEdit1
CellHeight = 32
CellWidth = 22
CharSet = 16655
CombBaseLine = 24.333
CombEndHeight = 8
CombEndMarker = 0 'False
CombHeight = 4
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 12
InflateLeft = 12
InflateRight = 12
InflateTop = 16
Left = 1200
TabIndex = 6
Top = 240
Version = 268435458
Width = 5655
End
Begin Label Label11
Caption = "_"
Height = 255
Left = 4440
TabIndex = 22
Top = 3960
Width = 135
End
Begin Label Label10
Caption = "W. Phone:"
Height = 255
Left = 840
TabIndex = 19
Top = 3960
Width = 975
End
Begin Label Label9
Caption = "_"
Height = 255
Left = 4440
TabIndex = 17
Top = 3360
Width = 135
End
Begin Label Label8
Caption = "H. Phone:"
Height = 255
Left = 840
TabIndex = 15
Top = 3360
Width = 975
End
Begin Label Label6
Caption = "Zip Code:"
Height = 255
Left = 3240
TabIndex = 11
Top = 2760
Width = 855
End
Begin Label Label5
Caption = "State:"
Height = 255
Left = 840
TabIndex = 10
Top = 2760
Width = 735
End
Begin Label Label4
Caption = "City:"
Height = 255
Left = 120
TabIndex = 3
Top = 2160
Width = 495
End
Begin Label Label3
Caption = "Address:"
Height = 255
Left = 120
TabIndex = 2
Top = 1560
Width = 735
End
Begin Label Label2
Caption = "Last Name:"
Height = 255
Left = 120
TabIndex = 1
Top = 960
Width = 975
End
Begin Label Label1
Caption = "First Name:"
Height = 255
Left = 120
TabIndex = 0
Top = 360
Width = 975
End
End
Sub Command1_Click ()
Form1.CustName.Text = LTrim$(BEdit1.Text + BEdit2.Text)
Form1.CustAddr.Text = LTrim$(BEdit3.Text)
Form1.CustCity.Text = LTrim$(BEdit4.Text)
Form1.CustState.Text = (BEdit5.Text)
Form1.CustZip.Text = BEdit6.Text
Form1.HPhone.Text = "(" + Mid$(BEdit7.Text, 1, 3) + ")" + Mid$(BEdit8.Text, 1, 3) + "-" + Mid$(BEdit9.Text, 1, 4)
Form1.WPhone.Text = "(" + Mid$(BEdit10.Text, 1, 3) + ")" + Mid$(BEdit11.Text, 1, 3) + "-" + Mid$(BEdit12.Text, 1, 4)
Unload Form6
End Sub
Sub Command2_Click ()
Unload Form6
End Sub
Sub Form_Load ()
Form6.Top = (Screen.Height - Form6.Height) / 2
Form6.Left = (Screen.Width - Form6.Width) / 2
tmp$ = Form1.CustName.Text
x = InStr(1, tmp$, " ")
If x > 0 Then
BEdit1.Text = Mid$(tmp$, 1, x)
BEdit2.Text = Mid$(tmp$, x, Len(tmp$))
Else
BEdit1.Text = tmp$
BEdit2.Text = ""
End If
BEdit3.Text = Form1.CustAddr.Text
BEdit4.Text = Form1.CustCity.Text
BEdit5.Text = Form1.CustState.Text
BEdit6.Text = Form1.CustZip.Text
tmp$ = Form1.HPhone.Text
BEdit7.Text = Mid$(tmp$, 2, 4)
BEdit8.Text = Mid$(tmp$, 6, 8)
BEdit9.Text = Mid$(tmp$, 10, 13)
tmp$ = Form1.WPhone.Text
BEdit10.Text = Mid$(tmp$, 2, 4)
BEdit11.Text = Mid$(tmp$, 6, 8)
BEdit12.Text = Mid$(tmp$, 10, 13)
End Sub